home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib13.dsk
/
SAMPLE ONE PAGE ANIMATION.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
603b
|
24 lines
10 REM
20 REM SAMPLE ONE PAGE ANIMATION
30 REM
40 REM GRAPHICS WORKSHOP II
50 REM BY ROBERT R DEVINE
60 REM
70 REM COPYRIGHT (C) 1983
80 REM BY MICROSPARC INC.
90 REM ALL RIGHTS RESERVED
100 REM
110 HGR2 : CALL 37799
120 POKE 251,144
130 HR = 2:HL = 0
140 POKE 254,HR: POKE 255,HL
150 FOR VT = 0 TO 170 STEP 2
160 POKE 252,VT: POKE 253,VT +11
170 CALL 37679: FOR X = 1 TO 25: NEXT : CALL 37679
180 NEXT
190 FOR VT = 170 TO 0 STEP -2
200 POKE 252,VT: POKE 253,VT +11
210 CALL 37679: CALL 37679
220 NEXT
230 HR = HR +2:HL = HL +2: IF HR >39 THEN 130
240 GOTO 140